COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "EXAMPLE ONE"
C00005 ENDMK
C⊗;
BEGIN "EXAMPLE ONE"
	REQUIRE "GEOMES.HDR[SAI,BGB]" SOURCE_FILE;
	DEFINE π="3.1415927";
	INTEGER B1,B2,I,N,CHR;
	INTEGER T1,T2,T3;
	REAL WX,WY,WZ,DX,DY,DZ;
	STRING STR;

	MKUNIV;
	OUTSTR("N = ");STR←INCHWL;N ← INTSCAN(STR,CHR);
	B1 ← INB3D("B1");T1←TRAM(B1);
	B2 ← INB3D("B2");T2←TRAM(B2);
	T3 ← MKCOPY(T1);

	APTRAM(INTRAM(T3),T2);	MKROTV(T3);
	WX ← XWC(T3)/N;	DX ← (XWC(T2)-XWC(T1)) / N;
	WY ← YWC(T3)/N;	DY ← (YWC(T2)-YWC(T1)) / N;
	WZ ← ZWC(T3)/N;	DZ ← (ZWC(T2)-ZWC(T1)) / N;
	GEODPY;
	FOR I←1 STEP 1 UNTIL N DO
	BEGIN 
		TRANSL(B1,DX,DY,DZ);
		ROTATE(XWD(-2,B1),WX,WY,WZ);
		GEODPY;
	END;
	WHILE INCHRW≠"E" DO;
END "EXAMPLE ONE";